home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / vic gunshot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  526b  |  21 lines
  1. 1 rem sound effects
  2. 2 rem gunshot (vic version)
  3. 10 gosub 900:goto 100
  4. 20 poke fr(0),0:poke fr(1),0:poke fr(2),0:poke fr(3),115
  5. 30 poke vl,15:print "."
  6. 45 for i=15 to 0 step -1:poke vl,i:poke fr(3),p(70+3*i):next
  7. 60 for i=0 to 2:poke fr(i),0:next
  8. 90 return
  9. 99 rem routine to play sounds when shift is pressed
  10. 100 print "press shift";
  11. 110 if peek(653)=0 then 110
  12. 120 gosub 20:goto 100
  13. 898 rem routine to set up variables
  14. 899 rem set up sound control addresses
  15. 900 dim fr(3),p(127)
  16. 910 fr(0)=36874:for i=1 to 3:fr(i)=fr(i-1)+1:next
  17. 920 for i=0 to 127:p(i)=i+128:next
  18. 929 rem set volume address
  19. 930 vl=36878
  20. 990 return
  21.